100 REM *****************
110 REM *** MOVE-DEMO ***
120 REM *SORTIERTE LISTE*
130 REM *****************
140 :
150 AM=100
155 DIM A$(AM)
160 PRINT CHR$(147)
167 AD=AD+1
170 INPUT"DATENSATZ";DA$
180 S=0:E=AD:GOSUB 510:REM BI-SUCHE
190 SYS 49152,A$(E),A$(E+1),(AM-E)*3
200 A$(E)=DA$
215 PRINT:PRINT
217 FOR I=1 TO AD:PRINT A$(I):NEXT
220 GOTO 167
230 :
240 :
500 REM *** BINAERE SUCHE ***
510 M=INT((S+E)/2)
520 IF DA$>A$(M) THEN S=M:GOTO 540
530 E=M
540 IF E-S>1 THEN GOSUB 510
550 RETURN